home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1998-05-21 | 2.3 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 100%
| file
| Emacs/XEmacs v20 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar 9 12|
|00000040| 3a 35 33 3a 35 39 20 31 | 39 39 38 0a 3b 3b 3b 20 |:53:59 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 70 72 69 6d |s-20.3/l|isp/prim|
|000000a0| 2f 65 6e 76 2e 65 6c 0a | 3b 3b 3b 20 65 6d 61 63 |/env.el.|;;; emac|
|000000b0| 73 20 76 65 72 73 69 6f | 6e 20 32 30 2e 34 20 22 |s versio|n 20.4 "|
|000000c0| 45 6d 65 72 61 6c 64 22 | 20 58 45 6d 61 63 73 20 |Emerald"| XEmacs |
|000000d0| 20 4c 75 63 69 64 2e 0a | 3b 3b 3b 20 62 79 74 65 | Lucid..|;;; byte|
|000000e0| 63 6f 6d 70 20 76 65 72 | 73 69 6f 6e 20 32 2e 32 |comp ver|sion 2.2|
|000000f0| 35 20 58 45 6d 61 63 73 | 3b 20 32 32 2d 4d 61 72 |5 XEmacs|; 22-Mar|
|00000100| 2d 39 36 2e 0a 3b 3b 3b | 20 6f 70 74 69 6d 69 7a |-96..;;;| optimiz|
|00000110| 61 74 69 6f 6e 20 69 73 | 20 6f 6e 2e 0a 3b 3b 3b |ation is| on..;;;|
|00000120| 20 74 68 69 73 20 66 69 | 6c 65 20 75 73 65 73 20 | this fi|le uses |
|00000130| 6f 70 63 6f 64 65 73 20 | 77 68 69 63 68 20 64 6f |opcodes |which do|
|00000140| 20 6e 6f 74 20 65 78 69 | 73 74 20 69 6e 20 45 6d | not exi|st in Em|
|00000150| 61 63 73 20 31 39 2e 0a | 0a 28 69 66 20 28 61 6e |acs 19..|.(if (an|
|00000160| 64 20 28 62 6f 75 6e 64 | 70 20 27 65 6d 61 63 73 |d (bound|p 'emacs|
|00000170| 2d 76 65 72 73 69 6f 6e | 29 0a 09 20 28 6f 72 20 |-version|).. (or |
|00000180| 28 61 6e 64 20 28 62 6f | 75 6e 64 70 20 27 65 70 |(and (bo|undp 'ep|
|00000190| 6f 63 68 3a 3a 76 65 72 | 73 69 6f 6e 29 20 65 70 |och::ver|sion) ep|
|000001a0| 6f 63 68 3a 3a 76 65 72 | 73 69 6f 6e 29 0a 09 20 |och::ver|sion).. |
|000001b0| 20 20 20 20 28 73 74 72 | 69 6e 67 2d 6c 65 73 73 | (str|ing-less|
|000001c0| 70 20 65 6d 61 63 73 2d | 76 65 72 73 69 6f 6e 20 |p emacs-|version |
|000001d0| 22 32 30 22 29 29 29 0a | 20 20 20 20 28 65 72 72 |"20"))).| (err|
|000001e0| 6f 72 20 22 60 65 6e 76 | 2e 65 6c 27 20 77 61 73 |or "`env|.el' was|
|000001f0| 20 63 6f 6d 70 69 6c 65 | 64 20 66 6f 72 20 45 6d | compile|d for Em|
|00000200| 61 63 73 20 32 30 22 29 | 29 0a 0a 28 6f 72 20 28 |acs 20")|)..(or (|
|00000210| 62 6f 75 6e 64 70 20 27 | 63 75 72 72 65 6e 74 2d |boundp '|current-|
|00000220| 6c 6f 61 64 2d 6c 69 73 | 74 29 20 28 73 65 74 71 |load-lis|t) (setq|
|00000230| 20 63 75 72 72 65 6e 74 | 2d 6c 6f 61 64 2d 6c 69 | current|-load-li|
|00000240| 73 74 20 6e 69 6c 29 29 | 0a 0a 0a 28 62 79 74 65 |st nil))|...(byte|
|00000250| 2d 63 6f 64 65 20 22 c0 | c1 21 ac 82 c2 11 c1 0b |-code ".|.!......|
|00000260| 42 13 c2 87 22 20 5b 62 | 6f 75 6e 64 70 20 72 65 |B..." [b|oundp re|
|00000270| 61 64 2d 65 6e 76 76 61 | 72 2d 6e 61 6d 65 2d 68 |ad-envva|r-name-h|
|00000280| 69 73 74 6f 72 79 20 6e | 69 6c 20 63 75 72 72 65 |istory n|il curre|
|00000290| 6e 74 2d 6c 6f 61 64 2d | 6c 69 73 74 5d 20 32 29 |nt-load-|list] 2)|
|000002a0| 0a 23 40 32 30 36 20 52 | 65 61 64 20 65 6e 76 69 |.#@206 R|ead envi|
|000002b0| 72 6f 6e 6d 65 6e 74 20 | 76 61 72 69 61 62 6c 65 |ronment |variable|
|000002c0| 20 6e 61 6d 65 2c 20 70 | 72 6f 6d 70 74 69 6e 67 | name, p|rompting|
|000002d0| 20 77 69 74 68 20 50 52 | 4f 4d 50 54 2e 0a 4f 70 | with PR|OMPT..Op|
|000002e0| 74 69 6f 6e 61 6c 20 73 | 65 63 6f 6e 64 20 61 72 |tional s|econd ar|
|000002f0| 67 20 4d 55 53 54 4d 41 | 54 43 48 2c 20 69 66 20 |g MUSTMA|TCH, if |
|00000300| 6e 6f 6e 2d 6e 69 6c 2c | 20 6d 65 61 6e 73 20 72 |non-nil,| means r|
|00000310| 65 71 75 69 72 65 20 65 | 78 69 73 74 69 6e 67 20 |equire e|xisting |
|00000320| 65 6e 76 76 61 72 20 6e | 61 6d 65 2e 0a 49 66 20 |envvar n|ame..If |
|00000330| 69 74 20 69 73 20 61 6c | 73 6f 20 6e 6f 74 20 74 |it is al|so not t|
|00000340| 2c 20 52 45 54 20 64 6f | 65 73 20 6e 6f 74 20 65 |, RET do|es not e|
|00000350| 78 69 74 20 69 66 20 69 | 74 20 64 6f 65 73 20 6e |xit if i|t does n|
|00000360| 6f 6e 2d 6e 75 6c 6c 20 | 63 6f 6d 70 6c 65 74 69 |on-null |completi|
|00000370| 6f 6e 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |on...(de|falias '|
|00000380| 72 65 61 64 2d 65 6e 76 | 76 61 72 2d 6e 61 6d 65 |read-env|var-name|
|00000390| 20 23 5b 28 70 72 6f 6d | 70 74 20 26 6f 70 74 69 | #[(prom|pt &opti|
|000003a0| 6f 6e 61 6c 20 6d 75 73 | 74 6d 61 74 63 68 29 20 |onal mus|tmatch) |
|000003b0| 22 c0 09 c2 c3 0c 5c 22 | c5 0e 06 c5 c7 26 06 87 |".....\"|.....&..|
|000003c0| 22 20 5b 63 6f 6d 70 6c | 65 74 69 6e 67 2d 72 65 |" [compl|eting-re|
|000003d0| 61 64 20 70 72 6f 6d 70 | 74 20 6d 61 70 63 61 72 |ad promp|t mapcar|
|000003e0| 20 23 5b 28 65 6e 76 65 | 6e 74 72 79 29 20 22 08 | #[(enve|ntry) ".|
|000003f0| c1 c2 c3 08 5c 22 4f 43 | 87 22 20 5b 65 6e 76 65 |....\"OC|." [enve|
|00000400| 6e 74 72 79 20 30 20 73 | 74 72 69 6e 67 2d 6d 61 |ntry 0 s|tring-ma|
|00000410| 74 63 68 20 22 3d 22 5d | 20 35 5d 20 70 72 6f 63 |tch "="]| 5] proc|
|00000420| 65 73 73 2d 65 6e 76 69 | 72 6f 6e 6d 65 6e 74 20 |ess-envi|ronment |
|00000430| 6e 69 6c 20 6d 75 73 74 | 6d 61 74 63 68 20 72 65 |nil must|match re|
|00000440| 61 64 2d 65 6e 76 76 61 | 72 2d 6e 61 6d 65 2d 68 |ad-envva|r-name-h|
|00000450| 69 73 74 6f 72 79 5d 20 | 37 20 28 23 24 20 2e 20 |istory] |7 (#$ . |
|00000460| 36 37 39 29 5d 29 0a 28 | 62 79 74 65 2d 63 6f 64 |679)]).(|byte-cod|
|00000470| 65 20 22 c0 c1 21 ac 82 | c2 11 c1 0b 42 13 c2 87 |e "..!..|....B...|
|00000480| 22 20 5b 62 6f 75 6e 64 | 70 20 73 65 74 65 6e 76 |" [bound|p setenv|
|00000490| 2d 68 69 73 74 6f 72 79 | 20 6e 69 6c 20 63 75 72 |-history| nil cur|
|000004a0| 72 65 6e 74 2d 6c 6f 61 | 64 2d 6c 69 73 74 5d 20 |rent-loa|d-list] |
|000004b0| 32 29 0a 23 40 34 35 30 | 20 53 65 74 20 74 68 65 |2).#@450| Set the|
|000004c0| 20 76 61 6c 75 65 20 6f | 66 20 74 68 65 20 65 6e | value o|f the en|
|000004d0| 76 69 72 6f 6e 6d 65 6e | 74 20 76 61 72 69 61 62 |vironmen|t variab|
|000004e0| 6c 65 20 6e 61 6d 65 64 | 20 56 41 52 49 41 42 4c |le named| VARIABL|
|000004f0| 45 20 74 6f 20 56 41 4c | 55 45 2e 0a 56 41 52 49 |E to VAL|UE..VARI|
|00000500| 41 42 4c 45 20 73 68 6f | 75 6c 64 20 62 65 20 61 |ABLE sho|uld be a|
|00000510| 20 73 74 72 69 6e 67 2e | 20 20 56 41 4c 55 45 20 | string.| VALUE |
|00000520| 69 73 20 6f 70 74 69 6f | 6e 61 6c 3b 20 69 66 20 |is optio|nal; if |
|00000530| 6e 6f 74 20 70 72 6f 76 | 69 64 65 64 20 6f 72 20 |not prov|ided or |
|00000540| 69 73 0a 60 6e 69 6c 27 | 2c 20 74 68 65 20 65 6e |is.`nil'|, the en|
|00000550| 76 69 72 6f 6e 6d 65 6e | 74 20 76 61 72 69 61 62 |vironmen|t variab|
|00000560| 6c 65 20 56 41 52 49 41 | 42 4c 45 20 77 69 6c 6c |le VARIA|BLE will|
|00000570| 20 62 65 20 72 65 6d 6f | 76 65 64 2e 20 20 0a 0a | be remo|ved. ..|
|00000580| 49 6e 74 65 72 61 63 74 | 69 76 65 6c 79 2c 20 61 |Interact|ively, a|
|00000590| 20 70 72 65 66 69 78 20 | 61 72 67 75 6d 65 6e 74 | prefix |argument|
|000005a0| 20 6d 65 61 6e 73 20 74 | 6f 20 75 6e 73 65 74 20 | means t|o unset |
|000005b0| 74 68 65 20 76 61 72 69 | 61 62 6c 65 2e 0a 49 6e |the vari|able..In|
|000005c0| 74 65 72 61 63 74 69 76 | 65 6c 79 2c 20 74 68 65 |teractiv|ely, the|
|000005d0| 20 63 75 72 72 65 6e 74 | 20 76 61 6c 75 65 20 28 | current| value (|
|000005e0| 69 66 20 61 6e 79 29 20 | 6f 66 20 74 68 65 20 76 |if any) |of the v|
|000005f0| 61 72 69 61 62 6c 65 0a | 61 70 70 65 61 72 73 20 |ariable.|appears |
|00000600| 61 74 20 74 68 65 20 66 | 72 6f 6e 74 20 6f 66 20 |at the f|ront of |
|00000610| 74 68 65 20 68 69 73 74 | 6f 72 79 20 6c 69 73 74 |the hist|ory list|
|00000620| 20 77 68 65 6e 20 79 6f | 75 20 74 79 70 65 20 69 | when yo|u type i|
|00000630| 6e 20 74 68 65 20 6e 65 | 77 20 76 61 6c 75 65 2e |n the ne|w value.|
|00000640| 0a 0a 54 68 69 73 20 66 | 75 6e 63 74 69 6f 6e 20 |..This f|unction |
|00000650| 77 6f 72 6b 73 20 62 79 | 20 6d 6f 64 69 66 79 69 |works by| modifyi|
|00000660| 6e 67 20 60 70 72 6f 63 | 65 73 73 2d 65 6e 76 69 |ng `proc|ess-envi|
|00000670| 72 6f 6e 6d 65 6e 74 27 | 2e 1f 0a 28 64 65 66 61 |ronment'|...(defa|
|00000680| 6c 69 61 73 20 27 73 65 | 74 65 6e 76 20 23 5b 28 |lias 'se|tenv #[(|
|00000690| 76 61 72 69 61 62 6c 65 | 20 26 6f 70 74 69 6f 6e |variable| &option|
|000006a0| 61 6c 20 76 61 6c 75 65 | 20 75 6e 73 65 74 29 20 |al value| unset) |
|000006b0| 22 08 ab 82 c1 12 c3 c4 | 0d 5c 22 ab 85 c6 c7 0d |".......|.\".....|
|000006c0| 5c 22 87 c8 c9 0d c4 50 | 21 50 c1 0e 5c 6e c1 1e |\".....P|!P..\n..|
|000006d0| 0b 1e 0c 1e 0d 1e 0e 0d | cf 98 ab 84 d0 5c 6e 21 |........|.....\n!|
|000006e0| 88 0e 0c ab af c3 0e 0e | 0e 0c 40 5c 22 ab 9e d1 |........|..@\"...|
|000006f0| 16 0b 5c 6e c1 61 ab 8b | d2 0e 0c 40 0e 5c 6e 5c |..\n.a..|...@.\n\|
|00000700| 22 16 5c 6e aa 88 0e 0c | 0d c4 5c 6e 51 a0 88 c1 |".\n....|..\nQ...|
|00000710| 16 0c 0e 0c 41 89 16 0c | ac 51 0e 0b ae 8d 5c 6e |....A...|.Q....\n|
|00000720| ad 8a 0d c4 5c 6e 51 0e | 5c 6e 42 89 16 5c 6e 2c |....\nQ.|\nB..\n,|
|00000730| 87 22 20 5b 75 6e 73 65 | 74 20 6e 69 6c 20 76 61 |." [unse|t nil va|
|00000740| 6c 75 65 20 73 74 72 69 | 6e 67 2d 6d 61 74 63 68 |lue stri|ng-match|
|00000750| 20 22 3d 22 20 76 61 72 | 69 61 62 6c 65 20 65 72 | "=" var|iable er|
|00000760| 72 6f 72 20 22 45 6e 76 | 69 72 6f 6e 6d 65 6e 74 |ror "Env|ironment|
|00000770| 20 76 61 72 69 61 62 6c | 65 20 6e 61 6d 65 20 60 | variabl|e name `|
|00000780| 25 73 27 20 63 6f 6e 74 | 61 69 6e 73 20 60 3d 27 |%s' cont|ains `='|
|00000790| 22 20 22 5c 5c 60 22 20 | 72 65 67 65 78 70 2d 71 |" "\\`" |regexp-q|
|000007a0| 75 6f 74 65 20 70 72 6f | 63 65 73 73 2d 65 6e 76 |uote pro|cess-env|
|000007b0| 69 72 6f 6e 6d 65 6e 74 | 20 66 6f 75 6e 64 20 73 |ironment| found s|
|000007c0| 63 61 6e 20 63 61 73 65 | 2d 66 6f 6c 64 2d 73 65 |can case|-fold-se|
|000007d0| 61 72 63 68 20 70 61 74 | 74 65 72 6e 20 22 54 5a |arch pat|tern "TZ|
|000007e0| 22 20 73 65 74 2d 74 69 | 6d 65 2d 7a 6f 6e 65 2d |" set-ti|me-zone-|
|000007f0| 72 75 6c 65 20 74 20 64 | 65 6c 71 5d 20 35 20 28 |rule t d|elq] 5 (|
|00000800| 23 24 20 2e 20 31 32 30 | 39 29 20 28 62 79 74 65 |#$ . 120|9) (byte|
|00000810| 2d 63 6f 64 65 20 22 08 | ab 88 c1 c2 c3 5c 22 c4 |-code ".|.....\".|
|00000820| c5 45 87 c1 c6 c4 5c 22 | 1e 07 c8 0e 07 21 1e 09 |.E....\"|.....!..|
|00000830| c4 1e 5c 6e c4 1e 0b 0e | 09 0e 0c 40 6b ab 83 c4 |..\n....|...@k...|
|00000840| 16 09 0e 09 ab 87 0e 09 | 0e 0c 42 16 0c 0e 0c 16 |........|..B.....|
|00000850| 0b cd ce cf 0e 07 5c 22 | c4 89 89 cc 25 16 5c 6e |......\"|....%.\n|
|00000860| 0e 09 ab 95 0e 0b 0e 0c | 61 ab 87 0e 0c 41 16 0c |........|a....A..|
|00000870| aa 87 0e 0c 89 41 41 a1 | 88 0e 07 0e 5c 6e 2c 44 |.....AA.|....\n,D|
|00000880| 87 22 20 5b 63 75 72 72 | 65 6e 74 2d 70 72 65 66 |." [curr|ent-pref|
|00000890| 69 78 2d 61 72 67 20 72 | 65 61 64 2d 65 6e 76 76 |ix-arg r|ead-envv|
|000008a0| 61 72 2d 6e 61 6d 65 20 | 22 43 6c 65 61 72 20 65 |ar-name |"Clear e|
|000008b0| 6e 76 69 72 6f 6e 6d 65 | 6e 74 20 76 61 72 69 61 |nvironme|nt varia|
|000008c0| 62 6c 65 3a 20 22 20 65 | 78 61 63 74 20 6e 69 6c |ble: " e|xact nil|
|000008d0| 20 74 20 22 53 65 74 20 | 65 6e 76 69 72 6f 6e 6d | t "Set |environm|
|000008e0| 65 6e 74 20 76 61 72 69 | 61 62 6c 65 3a 20 22 20 |ent vari|able: " |
|000008f0| 76 61 72 20 67 65 74 65 | 6e 76 20 6f 6c 64 76 61 |var gete|nv oldva|
|00000900| 6c 20 6e 65 77 76 61 6c | 20 6f 6c 64 68 69 73 74 |l newval| oldhist|
|00000910| 20 73 65 74 65 6e 76 2d | 68 69 73 74 6f 72 79 20 | setenv-|history |
|00000920| 72 65 61 64 2d 66 72 6f | 6d 2d 6d 69 6e 69 62 75 |read-fro|m-minibu|
|00000930| 66 66 65 72 20 66 6f 72 | 6d 61 74 20 22 53 65 74 |ffer for|mat "Set|
|00000940| 20 25 73 20 74 6f 20 76 | 61 6c 75 65 3a 20 22 5d | %s to v|alue: "]|
|00000950| 20 36 29 5d 29 0a 28 70 | 72 6f 76 69 64 65 20 27 | 6)]).(p|rovide '|
|00000960| 65 6e 76 29 0a | |env). | |
+--------+-------------------------+-------------------------+--------+--------+
